twice <- function(x) {
  2*x
}

thrice <- function(x) {
  2*x
}

four_times <- function(x) {
  4*x
}

